home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / util / moni / Scout.lha / Scout / arexx / poptofront.scout < prev    next >
Text File  |  1996-02-16  |  621b  |  23 lines
  1. /**************************************************************************
  2.  *         This ARexx script pops the window <window> to front.           *
  3.  *                     USAGE: poptofront <window>                         *
  4.  *            <window> can be title or address of the window.             *
  5.  **************************************************************************/
  6.  
  7. if showlist('p','SCOUT.1') < 1 then do
  8.   say "Scout is not running!"
  9.   exit
  10. end
  11. address 'SCOUT.1'
  12. parse arg window
  13.  
  14. options results
  15. options failat 20
  16.  
  17. if window = '' then do
  18.   say "usage: poptofront <window>"
  19.   exit
  20. end
  21.  
  22. PopToFront window
  23.